10 REM    MUSIK ABSPIELEN
11 S=54272:FORI=STOS+24:POKEI,0:NEXT
20 POKES+24,15:POKES+5,25:POKES+6,31:POKES+13,240
30 DIMSA(23),SB(23),I1(23)
40 FORX=0TO23:READSA(X),SB(X):NEXT
50 FORX=0TO23:I1(X)=2:NEXT
55 FORX=0TO2:READSC(X),SD(X),I2(X):NEXT
60 Z1=0:Z2=0:N1=0:N2=0:LN=2
65 GOSUB500
70 POKES,SA(N1):POKES+1,SB(N1)
80 POKES+7,SC(0):POKES+8,SD(0)
95 POKES+4,33:POKES+11,33
100 Z1=Z1+1:IFZ1<>LN*I1(N1)THEN200
110 N1=N1+1:Z1=0
120 IFN1=8ANDF1=0THENN1=0:F1=1
130 IFN1=16ANDF2=0THENN1=8:F2=1
140 IFN1=24ANDF3=0THENN1=16:F3=1
150 IFN1=24ANDF3=1THENN1=0
155 IFN1=8ANDF3=1THEN240
160 POKES+4,32:POKES,SA(N1):POKES+1,SB(N1):POKES+4,33
200 Z2=Z2+1:IFZ2<>LN*I2(N2)THEN230
210 Z2=0:N2=N2+1:IFN2=3THENN2=0
220 POKES+11,32:POKES+7,SC(N2):POKES+8,SD(N2):POKES+11,33
230 GOTO100
240 FORI=15TO0STEP-.04:POKES+24,I:NEXT:POKES+24,15
250 POKES+4,0:POKES+11,0:GOTO650
497 :
498 :
499 REM        TITELBILD
500 POKE53280,0:POKE53281,0:PRINT"[147]"
505 PRINT"[158]    [169] [169] [223]        [223]   [169] [223]  [223]  [223]"
510 PRINT"[154]   [146][169]              "
520 PRINT"              [182]          "
530 PRINT"   [223]              "
540 PRINT"    [146][223]         [146][169]         [146][169]"
550 PRINT"[169]                                      "
560 PRINT" [146][169]              [169]  [223][146]          [223][146]   [169] [146]"
570 PRINT"[154] [223][146]             [169] [146][169][223] [223][146]          [223][146] [169]  [146]"
580 PRINT"[223]     [223][146]         [146][169]  [223] [146]         [146][223]   [146][169] [146]"
590 PRINT"[158]       [146]              [146]         [146] [223] [146][169]  [146]"
600 PRINT"[223][146]    [169] [146]         [146]     [146]         [146]      [146]"
610 PRINT"      [146][169]         [146]     [146]         [146]      [146]"
620 PRINT"     ****      M  &  M      ****"
630 PRINTSPC(11)"[154]S O F T W A R E"
640 RETURN
650 PRINT"[147][144]LOAD"CHR$(34)"SAM D"CHR$(34)",8"
660 POKE631,19:POKE632,13:POKE633,82:POKE634,213:POKE635,13:POKE198,5:END
670 :
680 REM        MUSIK DATEN
690 DATA143,12,48,11,143,12,143,10,143,12,104,9,143,12,97,8
700 DATA24,14,143,12,24,14,48,11,24,14,143,10,24,14,104,9
710 DATA195,16,210,15,195,16,24,14,195,16,143,12,195,16,48,11
720 DATA97,8,32,24,14,32,195,16,32,97,8,42